home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / A-Newest / TORPET.d64 / convert (.txt) < prev    next >
Commodore BASIC  |  2009-10-12  |  397b  |  17 lines
  1. 10 REM BASIC ASCII LISTING (ON DISK) TO INTERGER BASIC COMPILER CODE CONVERTER
  2. 100 INPUT"[147]NAME ";N$
  3. 110 OPEN8,8,8,N$
  4. 120 OPEN9,8,9,"E "+N$+",P,W"
  5. 130 GET#8,B$,B$
  6. 140 GET#8,B$
  7. 145 IFB$<>" "AND (B$<"1"ORB$>"9") THENPRINT#9,CHR$(13)"!":CLOSE8:CLOSE9:GOTO220
  8. 150 PRINT#9,CHR$(13);:PRINT:IF B$<>" "THEN GOTO 165
  9. 160 GET#8,B$
  10. 165 IFB$<>" "THENPRINT#9,B$;:PRINTB$;:GOTO160
  11. 170 PRINT#9,CHR$(13);
  12. 180 GET#8,B$:IFB$=":"THENB$="[193]"
  13. 190 IFB$=","THENB$="[218]"
  14. 200 IFB$=CHR$(13)THENGOTO140
  15. 210 PRINT#9,B$;:PRINTB$;:GOTO180
  16. 220 END
  17.